Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue48/Clinic/SQLTraceU.dfm/SQLTraceU.txt

Text File | 1999-05-17 | 4.6 KB | 228 lines

object TraceForm: TTraceForm
  Left = 194
  Top = 106
  Width = 554
  Height = 593
  Caption = 'Trace Form'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object btnClear: TSpeedButton
    Left = 304
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Clear Log'
    OnClick = btnClearClick
  end
  object Label1: TLabel
    Left = 8
    Top = 4
    Width = 55
    Height = 13
    Caption = '&SQL Trace:'
    FocusControl = lstTrace
  end
  object Label2: TLabel
    Left = 8
    Top = 440
    Width = 68
    Height = 13
    Caption = 'Selected &Item:'
    FocusControl = memTrace
  end
  object lstTrace: TListBox
    Left = 8
    Top = 20
    Width = 281
    Height = 413
    ItemHeight = 13
    TabOrder = 0
    OnClick = lstTraceClick
  end
  object chkTableOpen: TCheckBox
    Left = 406
    Top = 16
    Width = 97
    Height = 17
    Caption = 'Table open'
    TabOrder = 1
    OnClick = chkTableOpenClick
  end
  object DBGrid1: TDBGrid
    Left = 302
    Top = 48
    Width = 235
    Height = 129
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object TraceCategories: TGroupBox
    Left = 302
    Top = 184
    Width = 236
    Height = 266
    Caption = ' Trace Categories '
    TabOrder = 3
    object CBPrepared: TCheckBox
      Tag = 1
      Left = 18
      Top = 20
      Width = 209
      Height = 17
      Caption = '&Prepared Query Statements'
      State = cbChecked
      TabOrder = 0
      OnClick = chkTraceCategoryClick
    end
    object CBExecuted: TCheckBox
      Tag = 2
      Left = 18
      Top = 42
      Width = 209
      Height = 17
      Caption = '&Executed Query Statements'
      State = cbChecked
      TabOrder = 1
      OnClick = chkTraceCategoryClick
    end
    object CBInputParams: TCheckBox
      Tag = 512
      Left = 18
      Top = 64
      Width = 209
      Height = 17
      Caption = '&Input Parameters'
      State = cbChecked
      TabOrder = 2
      OnClick = chkTraceCategoryClick
    end
    object CBFetchedData: TCheckBox
      Tag = 1024
      Left = 18
      Top = 86
      Width = 209
      Height = 17
      Caption = '&Fetched Data'
      State = cbChecked
      TabOrder = 3
      OnClick = chkTraceCategoryClick
    end
    object CBStatement: TCheckBox
      Tag = 8
      Left = 18
      Top = 108
      Width = 209
      Height = 17
      Caption = '&Statement Operations'
      State = cbChecked
      TabOrder = 4
      OnClick = chkTraceCategoryClick
    end
    object CBConnect: TCheckBox
      Tag = 16
      Left = 18
      Top = 130
      Width = 209
      Height = 17
      Caption = '&Connect / Disconnect'
      State = cbChecked
      TabOrder = 5
      OnClick = chkTraceCategoryClick
    end
    object CBTransaction: TCheckBox
      Tag = 32
      Left = 18
      Top = 152
      Width = 209
      Height = 17
      Caption = '&Transactions'
      State = cbChecked
      TabOrder = 6
      OnClick = chkTraceCategoryClick
    end
    object CBBlob: TCheckBox
      Tag = 64
      Left = 18
      Top = 174
      Width = 209
      Height = 17
      Caption = 'B&lob I/O'
      State = cbChecked
      TabOrder = 7
      OnClick = chkTraceCategoryClick
    end
    object CBMisc: TCheckBox
      Tag = 128
      Left = 18
      Top = 196
      Width = 209
      Height = 17
      Caption = '&Miscellaneous'
      State = cbChecked
      TabOrder = 8
      OnClick = chkTraceCategoryClick
    end
    object CBVendorErr: TCheckBox
      Tag = 4
      Left = 18
      Top = 218
      Width = 209
      Height = 17
      Caption = '&Vendor Errors'
      State = cbChecked
      TabOrder = 9
      OnClick = chkTraceCategoryClick
    end
    object CBVendor: TCheckBox
      Tag = 256
      Left = 18
      Top = 240
      Width = 209
      Height = 17
      Caption = 'Ve&ndor Calls'
      State = cbChecked
      TabOrder = 10
      OnClick = chkTraceCategoryClick
    end
  end
  object memTrace: TMemo
    Left = 8
    Top = 456
    Width = 529
    Height = 105
    TabOrder = 4
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 352
    Top = 80
  end
  object Table1: TTable
    DatabaseName = 'IBLOCAL_Proxy'
    TableName = 'CUSTOMER'
    Left = 408
    Top = 80
  end
  object Database1: TDatabase
    AliasName = 'IBLOCAL'
    DatabaseName = 'IBLOCAL_Proxy'
    LoginPrompt = False
    Params.Strings = (
      'PASSWORD=masterke')
    SessionName = 'Default'
    Left = 456
    Top = 80
  end
end